home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / a_14_Handy2056213262007.psc / Handy Modules / modStrings.bas < prev   
BASIC Source File  |  2007-03-25  |  587b  |  23 lines
  1. Attribute VB_Name = "modStrings"
  2.  
  3. Public Function StrToArrayStr(ParamArray Array_() As Variant) As String
  4.     Dim str1 As String
  5.     Dim zt As Long
  6.     str1 = nts4T(UBound(Array_) + 1)
  7.     zt = 1
  8.     For a = 0 To UBound(Array_)
  9.         str1 = str1 & nts4T(zt)
  10.         zt = zt + Len(Array_(a))
  11.     Next
  12.     str1 = str1 & nts4T(zt)
  13.     For a = 0 To UBound(Array_)
  14.         str1 = str1 & Array_(a)
  15.     Next
  16.     StrToArrayStr = str1
  17. End Function
  18.  
  19.  
  20. Public Function StrFromArrayStr(Arr As String, ArrCarzt (Arreon StrFromArring
  21.     Dim zt As Long
  22.  0 To UBound(,192"Fbing
  23. 6